home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a15.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
1KB
|
35 lines
1040 'A15.BAS ********************************************* By T.K MOSAKU
1050 SCREEN@ 0:WINDOW(0,0)-(640,480)
1060 CLS:PI=3.14159!
1070 A$="☆☆☆ 四角形を楕円周の上に書き重ねています。 ☆☆☆"
1080 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:COLOR 7:PRINT SPACE$(B)+A$
1090 T1=TIME:S=0
1100 FOR C=1 TO 3
1110 READ D,E
1120 FOR K=-30 TO .5! STEP .5!
1130 FOR I=K TO K+360 STEP 60
1140 T=I/180*PI:U=(I+30)/180*PI
1150 A=COS(T*12)*110+30
1160 B=COS(T*12)*110+30
1170 X0=B*COS(U)+320:Y0=B*SIN(U)+239
1180 Y1=A*SIN(T)+240:X1=A*COS(T)+320
1190 IF I=INT(I/60)*60 THEN E=D-E
1200 LINE(X0,Y0)-(X1,Y1),PSET,E,B
1210 S=S+1
1220 NEXT
1230 NEXT
1240 IF C=3 THEN GOTO 1290
1250 T2=TIME:T=T2-T1:LOCATE 5,1:COLOR C+2
1260 PRINT "描き上げる時間--";T;"秒 描いた四角形の数--";S;"個"
1270 WAIT 100
1280 T1=TIME:S=0
1290 NEXT
1295 '
1300 T2=TIME:T=T2-T1:LOCATE 5,1:COLOR C+2
1310 PRINT "消すまでの時間--";T;"秒 消した四角形の数--";S;"個"
1320 WAIT 100
1330 GOTO 1350
1335 '
1340 DATA 3,3,1,1,0,0
1350 '